home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86feb.arc / LIST2.TXT < prev    next >
Text File  |  1985-10-19  |  282b  |  11 lines
  1.  
  2.  
  3.             DEFINE( 'ROMAN(N)T')            :(ROMAN_END)
  4.         ROMAN    N  RPOS(1)  LEN(1) . T            :F(RETURN)
  5.             '0,1I,2II,3III,4IV,5V,6VI,7VII,8VIII,9IX,'
  6.         +        T  BREAK(',') . T
  7.             ROMAN = REPLACE( ROMAN(N),'IVXLCDM','XLCDM**') T
  8.         +                    :S(RETURN)F(FRETURN)
  9.         ROMAN_END
  10.  
  11.